home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / turbovis / numinp2.zip / TEST.PAS < prev   
Pascal/Delphi Source File  |  1993-05-25  |  2KB  |  90 lines
  1. program testje;
  2. uses    app,dialogs,objects,menus,drivers,views,msgbox,numinput;
  3. const   cmabout=201;
  4.  
  5. type    tmyapp=object(TApplication)
  6.                  procedure initstatusline;virtual;
  7.                  procedure HandleEvent(var e:tevent);virtual;
  8.                  procedure about;
  9.                end;
  10.  
  11. procedure tmyapp.initstatusline;
  12. var       r:TRect;
  13. begin
  14.   getextent(r);
  15.   r.a.y:=r.b.y-1;
  16.   statusline:=new(PStatusLine,Init(R,NewStatusDef(0,$ffff,
  17.                 NewStatusKey('E~x~it',kbAltX,cmQuit,
  18.                  NewStatusKey('~A~bout',kbF1,cmAbout,
  19.                   NewStatusKey('~A~bout',kbAltA,cmAbout,nil))),nil)));
  20. end;
  21.  
  22.  
  23.  
  24. procedure tmyapp.handleevent(var e:tevent);
  25. begin
  26.   inherited HandleEvent(e);
  27.   if e.what=evCommand then
  28.     case e.command of
  29.       cmAbout: begin about;clearevent(e);end;
  30.       else ;
  31.     end;
  32. end;
  33.  
  34.  
  35.  
  36. procedure tmyapp.about;
  37. var       dialog:pdialog;
  38.           r:trect;
  39.           b:Pview;
  40.           st,s1:string;
  41.           s:record
  42.               l:longint;
  43.               i:integer;
  44.               b:byte;
  45.               w:word;
  46.             end;
  47. begin
  48.   r.assign(1,1,40,10);
  49.   dialog:=new(PDialog,Init(R,'About-Dialog'));
  50.   with dialog^ do
  51.   begin
  52.     options:=options or ofCentered;
  53.     r.assign(10,1,30,2);b:=new(PLongintInputLine,init(R));Insert(b);
  54.     r.assign(1,1,10,2);Insert(new(PLabel,init(R,'Long',b)));
  55.  
  56.     r.assign(10,3,30,4);b:=new(PIntInputLine,init(R));Insert(b);
  57.     r.assign(1,3,10,4);Insert(new(PLabel,init(R,'Int',b)));
  58.  
  59.     r.assign(10,5,15,6);b:=new(PByteInputLine,init(R));Insert(b);
  60.     r.assign(1,5,10,6);Insert(new(PLabel,init(R,'Byte',b)));
  61.  
  62.     r.assign(10,7,17,8);b:=new(PWordInputLine,init(R));Insert(b);
  63.     r.assign(1,7,10,8);Insert(new(PLabel,init(R,'Word',b)));
  64.  
  65.     r.assign(20,6,30,8);Insert(new(PButton,Init(R,'~O~k',cmOk,bfDefault)));
  66.   end;
  67.   s.w:=1025;
  68.   s.b:=12;
  69.   s.l:=6544554;
  70.   s.i:=1024;
  71.   Dialog^.SetData(s);
  72.   desktop^.execview(dialog);
  73.   Dialog^.GetData(s);
  74.   str(s.l,s1);st:=concat(   ^C,'long: ',s1,^M);
  75.   str(s.i,s1);st:=concat(st,^C,'inte: ',s1,^M);
  76.   str(s.b,s1);st:=concat(st,^C,'byte: ',s1,^M);
  77.   str(s.w,s1);st:=concat(st,^C,'word: ',s1,^M);
  78.   messagebox(st,nil,mfOkbutton+mfInformation);
  79.   dispose(dialog,done);
  80. end;
  81.  
  82.  
  83.  
  84. var   a:tmyapp;
  85. begin
  86.   a.init;
  87.   a.about;
  88.   a.run;
  89.   a.done;
  90. end.